RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ILE®® 1D®®NDXXTN 
NN NN DDDDDDDD _— XX XX XX XX TTTTTTTTTT NN NN 
NN NN DDDDDDDD _XX XX XX XX TTTTTTTTTT WN NN 
NN NN DD DD Xx XX XX XX TT NN NN 
NN NN DD DD XX XX XX XX TT NN NN 
NNNN NN DD DD XX XX XX XX TT NNNN NN 
NNNN DD DD XX XX XX XX ae oI NN NN 
NN NN NN DD DD XX XX TT NN NN NN 
NN NN NN - DD DD XX XX TT NN NN NN 
NN NNNN DD DD  =XX~=sOKX XX XX TT NN _NNNN 
NN NNNN DD DD XX XX XX XX TT NN _NNNN 
NN NN DD DD Xx XX XX x TT NN NN hale 
NN NN DD DD Xxx XX XX aX TT NN NN ebeiae 
NN NN DDDDDDDD _—iXX XX XX XX TT NN NN niciete 
NN NN DDDDDDDD _—iXX XX XX XX TT NN NN ame 
LL LII111 SSSSSSSS 
LL eeeeel SSSSSSSS 
LL II SS 
LL I] $$ 
LL I] SS 
LL Il $$ 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] S$ 
LL I] SS 
LL I] SS 
LL I] 3 
LELLLLLLLL LI SSSSSSSS 
LLLLLLLLLL 1111 SSSSSSSS 
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Cleaned up module names, modified revision wistery ge ae 
9 ates. 


So 


conform with established standards. Updated copyr 


BRS 


003 JPK00012 24-Jan-1983 

Modified NDXVMSMSG.MSG to define error messages for both 
DSRINDEX and INDEX. 

Added require of NDXVMSREQ.R32 to NDXOUT, NDXFMT, NDXDAT 
INDEX, NDXMSG, NOXXTN, NOXTMS, NDXVMS and NDXPAG for BLISS32. 
Since this file defines the error message literals, 

the EXTERNAL REFERENCEs fo 

have been removed. 


002 JPK00008 19-Nov-1982 


Sses 


r the error message literacs 


3 1 0001 MODULE NDXXTN (IDENT = 'V04-000' ~ % 
. ¢ 09 ¢ FOL ISS5e + ADDRESSING MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] ; : 
3 4 004 1 BEGIN 3 (0 
3 5 005 1! $ 6 
. $ O96 1 | SeseesenncesessnesannnnasensEnenneseeerelesegneonTeRneenecenaeneenenoeonete 3 : 
by .* ww Ps 

; 8 B008 1 !'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 8 
BU 09 9 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . ; * 
3 9 Bott : i. ALL RIGHTS RESERVED. * 5 ; 
° . ® Ps 

3 \ BOi§ 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * s 6 
; 1 01 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * a 
5 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * an 
: 15 FF 1 !'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * $ 66 
; 16 518 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 3 66 
; i? EA ! » TRANSFERRED. * : : 
° . ® Ps 

; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ie | 
3 0 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * sf 
3 1 Se 1 : i. CORPORATION. * 5 ; 
: ' * 3 

; $¢ 00 ¢ 1 !'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 3. 6 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * > | 
; 25 0025 1 !* : * gs 6 
; & 0026 1 !«* * $ 66 
4 4 BS 1 Vee REAR EERE REA AEE 4 fi 
: , 3 | 
; 9 ik 1 lee g a 
3 0 0030 1 ! FACILITY: e- 6 
: 1 itt : DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 3 - 
; 35 0038 : ABSTRACT: Routines for processing transaction numbers. : : 
3 i st 1 g A 
3 = 0036 1 ! ENVIRONMENT: Transportable s (A 
3 3 0037 1 g 8 
; 8 0038 1 ! AUTHOR: RWF s (0 
3 39 0039 1 $ & 
3 40 0040 1 CREATION DATE: January, 1979 g 4 
s 61 98 1 ge 6 
; 4g ek 1 MODIFIED BY: a § 
i 0043 1 3 | 
; 44 8 44 1 004 JPK00015 04-Feb-1983 g § 
: 465 1 a | 
:; 646 0 1 3 68 
: 47 1 g | 
; | «648 1 s 3 
: 49 1 g 6 
3 20 1 g | 
; 3 1 a 
; 2g 1 3 (Ct 
: 4 1 > § 
: 5 1 g | 
: § 1 s (f 
: 1 5s | 
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Worx 
v04-000 


DXXT -Sep- on 
VO4~000 138 att 7 9}: 38: 8 $a5SSDUARSSCRONOTF SR SRC PAGEN.REQ; 1 ee a 


; ROO79 1 } ; 
; Ree ? ! : Version: *v04-000' ; 
: > sie \ LR RR AREER AREER EERE AEE ERE EERE AEA E TATE KAA AREER ° 
:' R '® ra ; 
; ROO84 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * . 
; ROO8S 1 iw DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * ’ 
$ RO eRS : = ALL RIGHTS RESERVED. * . 
: '® * e 
; ROO88 1 '‘® THIS SOFTWARE IS eee UNDER A LICENSE AND MAY BE USED AND COPIED * : 
; kROOB9 1 '‘® ONLY IN ACCORDANCE WITH THE TERMS OF raven LICENSE AND WITH THE * : 
; ROO9O0 1 '® INCLUSION OF THE ABOVE COPYRIGHT WOTTCe THIS SOFTWARE OR ANY OTHER * : 
; ROOST 1 ‘es COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * $ 
: 0095 1 '® OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE IS HEREBY * : 
3 si 0k, : +n TRANSFERRED. . : 
3 '@ ® ° 
; ROO9S 1 '‘® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; ROO9S 1 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

: iia : - CORPORATION. * 

3 'f ® 

; ROO99 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 

; RO100 1 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; RO101 1 '® * 

: ROE 1 '® * 

4 RO10 1 LRA AREER EREE ERE REE EE 

; RO106 1 : 

; kRO10S 1 

; RO106 1 1++ 

; sted : FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

; kRO109 1 ABSTRACT: 

; kO110 1 i A page number carries with it not only its current value, but also 

; ROW 1 i codes as to how those values are to be displayed when they are finally 

; kROW12 1 i output. It was decided to do it this way rather than have a separate 

5 at iz : table so that the program TCX would have less trouble. 

; eei2 : ENVIRONMENT: Transportable BLISS 

; RO117 1 i AUTHOR: Rich Friday 

; kRO1W18 1 i 

; RO119 1 i CREATION DATE: 1978 

; Rats 1 i 

3 4 } : MODIFIED BY: 

: Ok 158 1 i 004 KAD00004 Keith Dawson 07-Mar-1983 

5 Rose 1 i Global edit of all modules. Updated module names, idents, 

; RO! 5 Fe copyright dates. Changed require files to BLISS library. 

3; =©RO1 3 1 in 

3; kO128 1 

; RO129 1 LITERAL 

; RO130 1 page_sct_size = 4; 

3; ROWS] 1 

: RO} § 1 LITERAL i Type of section: 

> ROWS 1 sct_chapt = 1, apter section. | 

; ROI 1 sct_index = ¢: ! Index section, 

; ROSS 1 sct_append = 3; i Appendix section. | 


mane eantreiteeaninasttinaeepeniiiteiliertiiiameiionaitinadiapectniataanetatitie ans 7" 
NDXXTN 


2 
16-Sep-1984 01:16:01 VAX=-11 Bliss<-32 V4.0-74 Pa 4 
v04-000 1b-Sep-1984 93:16:91 SSESDUASS CRONDEE SRCTPAGEN. REQ: 1 = (1) 


; RO} $ 1 

; ROI 1 LITERAL 

; kO138 1 sct_low = 1, ' Lowest section type key. 

; RO1S9 1 sct_high = 3; ! Highest section type key. 

; RO140 1 

; RO141 1 MACRO 

: Rees 1 sct_typ = 0, 0, 4, 0%, ! Section Type (zero if none). 
> RO143 1 sct_page.d = 0, 4 4 8 %, |! Display code for page number. 
> ROI4Q 1 sct_sub_ page = 0, XBPVAL/2, XBPVAL/2, 0 %. | Subpage, if any (zero if none). 
; ROW4S 1 sct_number = 1, 0, %BPVAL, 8 %, | Type of section number. 

> ROI46 1 sct_page = 2, 0, XBPVAL, %, | Page number. 

; RO47 1 sct_subpg.d = 3, 0, 4, 8 %, ! Display code for subpages. 

; RO148 1 sct_chapt_.d = 3, 4, 4, %, | Display code for chapters. 

3 ROI49 1 sct_appen.d = : 8 4, 0%, ! Display code for appendices. 
; eley : sct_index.d = 3, 12, 4, 0 %; ! Display code if indexes. 

; Rot 26 1 MACRO 

; wot er : sct_run_page = 3, XBPVAL/2, XBPVAL/2, 0 %; ! Running page number. 

; ROSS 1 MACRO 

: Rot 28 ; page_definition = BLOCK Cpage_sct_size] %; 

; RO1S8 1 : End of PAGEN.REQ 


| 
| 
| 


1 REQUIRE "REQ:DMDEFS'; 


— 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


RO 


3E2333 
SELERe 


NDXXTN 1b-5¢ Sep-1984 VAX-11 Bliss-32 V4.0-74 Page 6 N 
v04~000 30771382 93:58:9)  VSSSsS BAS eS tRGnbre shcSompers.reas1 2%” 14 you~ 
; ROW) 1 ! 3 

; Rae : Version: *v04-000' : 

: RO Iee : ee ee a neem ea ES : 

3 / * 3 

; RO198 1 'w COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 3 

; ROW? 1 '‘® DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. * ; 

: ae ee : is ALL RIGHTS RESERVED. * 3 

3 } * 3 

; kO170 1 '‘® THIS SOFTWARE IS runny seo UNDER A LICENSE AND MAY BE USED AND COPIED * : 

; kRO171 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ‘ 

> RO17 1 '® INCLUSION OF THE ABO COPYRIGHT NOTICE. THIS SOFTW oe yi ANY OTHER * ; 

; kRO175 1 '® COPIES THEREOF MAY NOT BE PROVI OR OTHERWISE MADE AVAILABLE TO ANY * as 
; RO17™4 1 '® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * = 
; Re ee : it TRANSFERRED. * 3 } 
3 ! * 3 

3 kROW77 1 '‘® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ae 
; kO178 #1 's AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 7 
3 SF : se CORPORATION. * 3 : 
3 ' * 3 

; kRO181 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * s 4 
; kROW 1 'w SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * as 3 
; kRO1W8S 1 '® x : % 
; RO184 1 ' * e 4 
3 side Hi : ‘te sadeiietteiiataiaetin in iain inital tacit e } 
: ROW? 1 : 
; ROWS 1 i++ : ] 
; RO189 ! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS ; 
: RO191 1 i ABSTRACT »Y 
: RO192 1 Defines Literals and macros used in defining, controlling, and I 
3 ROIOL : accessing the dynamic memory pool. : : 
i RO195 1 | ENVIRONMENT: Transportable BLISS i] 
: ROIoe 1 i AUTHOR: Rich Friday : 1 
; kO198 1 i a9 
; RO199 1 i CREATION DATE: 1978 aos 
; kRO200 1 i 

; ~ 2 ' MODIFIED BY: 

> R020 004 KAD00004 Keith Dawson 07-Mar-1983 

; 1 

3 1 i 

; 1 ie 

3 1 

: «RO 1 : Structures defining information stored in a dynamic memory pool. 

2 ne 10 1 MACRO 

; kRO211 1 POOL = VECTOR PAL CNTRL_SIZE) 2%, 

z Re \ ' PAD = VECTOR CPAD_CNTRL SIZE q; 

: R0 14 1 LITERAL 

; RO215 1 POOL_CNTRL_SIZE = 3: 'Size of POOL control area 

: R 1 PAD_TNTRL_SIZE = 2; iSize of a Pooled Area Descriptor. 


vo4~000 | ie sho t9 83:38:80 VESSSEDUADBScRUnOFF osRCSompers.rea;1°°%° (15 


; } CITERAL Offsets into pool control area (POOL) and pool area descriptor (PAD). : } 
; 1 POOL_MAX_PADS = 9. ‘Maximum number of PADs that can be accommodated. : ] 
: 1 POOL-ACT-PADS = 1, ‘Current number of allocated PADs. oe 
; POOL“ACT“SIZE = 2: iNumber of BPVALS in pool control area. | : } 
; 1 LITERAL me} 
: 1 PAD_SIZE = 9. 'Size of pooled area (BLISS VALUES). - 
; ' PAD-ADDRESS = 1;  '!Start of pooled area. , } 
: 1 ! The GET_SEG_ADDR macro returns the starting address of a segment from the ; 1 
3 1 ! spec iéd pool. ; ] 
3 1 MA +. 
: 1 GET_SEG_ADDR(AREA, INDEX) = » 7 
: 1 BEGIN 5] 
: 1 LOCAL 3; 1 
: 1 PADTAB : REF VECTO Ss 1 
; 1 PADTAB = .AREA+POOL_CNT ATRL SIZE*% | 
; :PADTABLPAD. ENTRLSTZE* (INDEX 1) *PAD- ADDRESS] : ] 
: 1 3 ; 
; 1 : 

; 1 End of DMDEFS.REQ y 
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ose) 
2 42 1 REQUIRE ‘REQ:XTNTAB'; 


<Zz 
oO 
Pad 
‘x 
~ 
z 


é 
“Se 
e 


ISSEHMA STE) ESI BU HB! re at 


shes a 
CRUNOFF ..SRCJXTNTAB.REQ; 1 (1) 


! 

Version: "v04-000' 
lenuneneaeeratenenenennentnnetenenneneneeerererettrrertretneerenetenerenetnns 
‘* 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
i# ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


; N ARE 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
» 
* 
* 
* 
. 
« 
3 
. 

't TRANSFERRED. ® 
¥ 
* 
* 
* 
* 
* 
« 
a 
’ 
* 


PPADS DIVIVIVIVIA LE ££ 
DONAOVE WO ODNOUEW 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DDDDDDADAAAADAAAAAAAAADAADAzAD 
pejofofeolololololelelelolelelelolelololololelejeleo) 


60 ie AND 
61 is CORPORATION. 
‘@ 
8 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
64 ts SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
; 
R $8 \ ichheinthieeanicedeaeanininsiahimadnsemmmeiiniateniiemnentebnieiaeuantin’ 
RO268 i 
ROS7O ses 
RO271 : FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: 


Parallel tables for associating index entries and pages. 


NOTE: The tables contain one extra entry, which is unused. 
That is so subtraction of 1 can be forgotten about. 


ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


LITERAL 
max_xtn_count = 100, !Maximum number of transaction numbers (condensed). 


; Number of BLISS values in a set of pages. 


ee ee ee eee ee ee eee eee eet 


xtn_pagtab_size = (max_xtn_count + 1) * page _sct_size, 


2 
XXTN 1p-5e 1984 01:16: VAX=-11 Bliss<-32 V4.0-74 Page 10 XX 

yon. 000 19733871982 93:48:05 | “ENSUE BAe tRinbee shcSxtwras.reo:1 2% 19 Yoo. 
; Number of BLISS values in a List of transaction numbers. 
"  _xtn xtntab_size = max_xtn_count ¢ 1; 
MACRO 

xtntab_define = VECTOR Cxtn_xtntab_size) %, 

xpagen_define = BLOCKVECTOR Cmax_xtn_count + 1, page_sct_size] %; 


! End of XTNTAB.REQ 


1 
. 1 
; 1 
3 1 
; 8 1 
; 4 
3 1 
; 1 
3 1 


Seo-1 AX-11 Bliss-32 V4.0-74 Page 11 
1b-se at fi 94:49:8) ANN Bliss ae N-BLI; v4) 
1 

1 XIF XBLISS (BLIS$32) 

] XTHEN 

1 REQUIRE 'REQ:NDXVMSREQ'; 


K 2 
NOXXTN 16-Sep-1984 01:16: AX-11 Bliss-32 V4.0-74 
v04-000 18-808-13 4 93:19:93 RUNOFF .SRC JNDXVMSREQ.R52;1 
; RO3dIQ 1 ! 
; nO 5 ! Version: *v04-000' 
: AY § 1 lsennenatenerententeententenennntenenenterecentertenrentertrnenentneernetnnts 
3 ‘* ® 
; RO § 1 '‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; kRO320 1 'w DIGITAL EQUIPMENT foRPORATION, MAYNARD, MASSACHUSETTS. * 
; Re 1 : . ALL RIGHTS RESERVED. * 
Py 4 * 
: RO 4 1 's THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; ROS26 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; RO325 1 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; RO 8 1 'w COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
; =RO 1 'w QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
s “i 8 : i: TRANSFERRED. * 
° ; a7 
3; kO350 1 '‘® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; kRO33S1 1 'w AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 Re § ! ts CORPORATION. * 
3 / * 
; RO 1 'w DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; RO335 1 'w SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: Mee} lis : 
. ® ® 
: R03 : : PITITITILI TILL LI LLL LLL LLL LLL LLL Lit Tiiiiiiiiiiiitiiiii iii 
2 R : 
; ait rt 1 
3; RO341 1 '+¢ 
; RO ets 1 ' FACILITY: 
; AS oh ! DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 
: ROSAS 1 i ABSTRACT: 
: RO r¢] 1 ' This file contains external references to the error message numbers 
: st oh : for DSRINDEX/INDEX. 
: RO349 1 i New messages must be defined in NDXVMSMSG.MSG and referenced here: 
; RO35O 1 ! both in the i4ACRO section (for DSRINDEX) and the EXTERNAL LITERAL 
: RO33¢ : } section (for INDEX) 
: RO 3g 1 i ENVIRONMENT: VAX/VMS User Mode 
; RO eee 1 ! 
; RO355 1 ' AUTHOR: JPK 
3; =6©RO 2$ 1 ! 
3 RO : ! ; CREATION DATE: 01-Feb-1983 
; RO 25 | MODIFIED BY: 
> RO361 1 i 004 JPK00022 30-Mar-1983 
: RO § 1 ! Modified NDXVMS, NDXFMT, NDXPAG, NDXVMSMSG and NDXVMSREQ 
: no : to generate TEX output. Added module NDXTEX. 
: RO365 1 i 003 ypxoog21 28-Mar-1983 
; RO 1 ! Modified NDXT20 to include E2.0 functionality. 
: RO 1 § Modified NDXCLIDMP, NDXFMT, NDOXPAG, NDXVRS to require RNODEF 
; RO368 1 : for BLISS36 and to remove any conditional require based on 
: a ; : DSRPLUS_DEF. 


<z 
Oo 
=< 
=< 


toft off off off oft off oft off off oft oft of ol ot oll dd Cl ld Cl Cl nl ON Od Od Od Ud Cd Od ad Cd Ld Ld CA CA ALC A OC AL AI CAI CAI LAIR PURPUREA 


ad 3 


H$o$6oc19R6 9021630) yaKost a iaga52 va0a74g. 


002 JPK00010 04-F eb-1983 
Cleaned up module names, modified revision histor 
conform with established standards. Updated copyr 


REQUIRE "REQ:RNODEF'; 


y te 
ght dates. 


2 
7 
o 
. 
o 
- 
a 
. 
e 
° 
° 
. 
o 
os 
o 
. 
e 
* 
ca 
. 
e 
. 
9 
. 
e 
° 
o 
o 
. 
° 
. 
e 
. 
a 
. 
o 
. 
e 
. 
° 
° 
2 
. 
° 
° 
° 
. 
~ 
. 
. 
° 
o 
- 
° 
2 
° 
. 
- 
. 
0 
& 
° 
io 
o 
. 
e 
. 
a 


WANNA 


Vv 


Be Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Fe Fe Fe Ge Se Ge Fe Ge Fe Ge Fe Ss Ge Se Ge Ge Se Se Se Se Se Se Ss Se Se Se Se Se Se Se Se Sse Se Se Se Se Se Sse SH Se Seas 


NOXXTN 
-000 


RO408 


Se 
ed ed ed ed ed ad aed ed ad 


WO ODOVNOUS WP OONOUSWN OO <4 


SRSSSS SOOO OOOO SSOSSSSSSSS 


RRRRELEESERELEL 


ee ee em ee me ee ee mt ee ee ee ed a ed ed dd od od ed dd dd wd dd 


1$o$e0-1964 1:16:04 


! Version: "v04=000' 


ASSESSES IOCSI ESET EET TTT TTT TTT TTT Tere eerie ccc ice c ii c iii it isi iii ii iy 


\® 
ie 
ie 
ie 
'e 
'® 
it 
ie 


'@ 


Lee RARER AREER AAA AARNE AAA AEA 
i . 


'o4 


COPYRIGHT (c) 1978. 1980, 1982, 1984 B 
DIGITAL EQUIPMENT *"aPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVle. 


noe SOFTWARE IS 4 ag tt UNDER A LICENSE AND MAY BE USED AND gt 
ONLY IN ACCORDANCE WITH E TERMS OF SUCH ints a WITH THE 
IN CLUSION OF THE meys COPYRIGHT NOTICE. THIS SOFTWARE OR ANY 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE T 
ST ASFERACOY NO. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oppohat ite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT 


Converts BLISS/VARIANT values into useful names. 


ENVIRONMENT: Transportable BLISS 


{ AUTHOR: Rich Friday 
CREATION DATE: 1978 
! MODIFIED BY: 
016 KAD00016 Marshall 19-Mar-1984 
Added GERMAN, FRENCH. 6 ITALIAN. 
015 KAD00015 Keith Dawson 18- 


r-1983 
Made the LNO1 conditional the defaul " for vanilla DSR -- 
its value is 0 (no variant supplied). 


014 KAD00014 Keith Dawson 22-Mar-1983 

Asserted the LNO1 conditional when DSRPLUS is asserted. 
013 KAD00013 Keith Dawson 20-Mar-1983 

Removed all references to .BIX and .BIC files. 
012 KAD00012 Keith Dawson 07-Mar-1983 


Global edit of all modules. U Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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DEFINITION OF /VARIANT BITS 
The bit assignments are as follows: 
__Bit Weight Meaning 


! 

1 

' 

1 

' 

' 

' 

! -- 0 If no /VARIANT is supplied (as for vanilla DSR), 
! ompile with LNO1 support. LNO1 support is also. 
mplied by the DSRPL variant. 

i 0 1 CLEAR = Unassigned 

SET = Unassigned 

: CLEAR = yeree? compile 

SET = Compile for DSRPLUS 

: CLE iG°= Ge (American) version 

SET 3 : = yoreea (Austrian) 

i] 

] 


S 
po) 
" 


3 
4 


Fr 
= Italian 


This variable (LNO1) controls whether or not to com ile an LNO1-flavored 
DSR. It is asserted by default, and also whenever DSRPLUS is asserted. 


' 
' 
' 
H Modules utilizing LNO1 are: 
! DOOPTS NOUT 
COMPILETIME 
= 
( (ZVARIANT EQL 0) OR XVARIANT/2 ) 


This variable (DSRPLUS) controls compilation for the DSRPLUS program. 
i ALL modules utilize DSRPLUS. 


COMPILETIME 
srplus = 
( ZVARIANT/2 ) 
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e 
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i This variable (FLIP) controls compilation of FLIP features of DSRPLUS. 
It assures that FLIP features are compiled only on VMS systems. 
! Modules utilizing FLIP are many and various. 
COMPILETIME 

flip = 


0-74 p 
: CRUNOFF .SRC JRNODEF .REQ; 
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( ZVARIANT/2 AND %BLISS(BLISS32) ) 


' 
RO496 : 4-6 16 CLEAR = English (American) version 
0497 ! SET = 16 = German (Austrian) 
RO498 ! 32 = French 

! 48 = Italian 

COMPILETIME 


= ( ZVARIANT/16 AND NOT %VARIANT/32 AND NOT XVARIANT/64 ) ; 
= ( NOT %VARIANT/16 AND %VARIANT/32 AND NOT ZVARIANT/64 ) ; 
Italian = ( ZVARIANT/16 AND RVARIANT/32 AND NOT RBVARIANT/64_ a3 


i End of RNODEF.REQ 
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e> 
jiers> 
contains control cnerec ters - speeree 
at the current indentation level> 
ot tt - inserted as .XPLUS ()> 


<missing Giose quot 
<conflict ng gue) tt 
<the fol how ng line 
<"!AD* will not fit 
<duplicate oXCLUS ( 
Serety input file ' 
<"!AS" ignored> 
<invalid input file format in file ‘!AS'> 

<invalid record type in file '!AS'> 

<can't generate continuation heeding on last page> 

<.XPLUS (END) with no .XPLUS (BEGIN) - inserted as .XPLUS ()> 
<.XPLUS en | BL nee no corresponding -XPLUS (END)> 

<no index information in file ‘!AS' 

<parameter List not allowed> 

<the following Line contains an overstrike sequence> 

<!UL reference!%S inside page range - ignored> 

<error parsing ‘!AS'> 

<error processing Line !UL of TEX character file ‘!AS'> 

! <maximum subindex depth exceeded> 

! <not enough values supplied> 

! <string too long = truncated> 

! <processing complete ‘!AS'> 

<"!'AS' created> 


! <INDEX version !AD 
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> 
' <processing file ‘'!AS'> 
<!AS> 


<entry text: ‘!AD'> : ‘ 
<output file full = continuing with file ‘"!AS'> 
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NDXXTN 16-Sep-1984 01:16: AX=11 Bliss-32 V4.0-74 Page 20 WF 
v04-000 12286871388 93:09:93 RUNOFF. SRC NDAXYN BL Lai 33 VO04- 

$ GLOBAL ROUTINE ASGXTN (PAGE, TRANSACTION) : NOVALUE = ! 

6 14+ 

! FUNCTIONAL DESCRIPTION: 

6 Associates the current page number with a transaction 

27 number range. 

Oe FORMAL PARAMETERS: 

064 PAGE indicates which page number is to be attached to 

64 the index entry. 

64 TRANSACTION iF not zero, is the highest transaction number 

64 to be associated with the given PAGE. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


Implicit in this routine is the compression of the List of 
transaction numbers for a single page. Note that before 
the document page number is copied, a check is made to 
see if the previous transaction number refers to senething 
on the same page. If that is the case, then no copy of the 
page number is made. 

his fact is important for the operation of the MODULE 
XPRT, which prints the index entries Later. 

f the compression is not made, that module assumes that 
there are distinct pages having the same number; subsequently, 
it won't merge page numbers with ‘to’ or ‘=-" correctly. 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 
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PAGE : REF PAGE_DEFINITION; 


LOCAL 
MERGE; 


'Is this trip necessary?? 
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F 
. TRANSACTION EQL 0 
THEN 


3 
1S-Sen-1984 1:16:01 YaXatt Blisg=32 vs.0-74 


000 
; : 5 $3 RETURN; 
3 } 5 24 'The first time through this code, initialize the pool. 
: 189 694 XTNPOL EQL 0 iFirst time through? 
190 695 THEN . 
; «191 4 
3 136 69 ‘First, allocate the pool itself. 
; #19 43 '(Extra slot gets pointer to XTNLSX segment.) 
: 194 +4 GPOOL (XTNPOL, XTN_MAX_SEGS + 1); 
: «195 0 'Now, allocate space for XTNLSX. 
| 3 701 '(Extra slot avoids heving to subtract 1 all the time). 
; #19 7 § XTNLSX = XPOOL (XTNPOL, XTIN_MAX_SEGS + 1); 
: 139 10a ss 
; 200 705 ‘At this point at least a pool exists for saving the 
; 201 706 ‘segment information. However, the current segment, wherein 
: 8 707 'the transaction numbers and associated pages reside, 
3 sor 444 ‘may be full, or even not yet allocated. 
3 $08 0710 ‘In preparation for merging, see if the current page number and 
; oe Bots eet referenced page number are the same. 
; 208 O71 -XTMLSP EQL 0 
; 209 0714 THEN 
: 210 0715 'There is no last page. 
3 av O78 MERGE = FALSE 
; sig 071 SE 
; 2 0718 ‘Compere the two page numbers, toh ing display characterstics into account. 
3 sié 1B ERGE = PAGEQL (.XTNLSP, .PAGE, TRUE); 
> 216 0721 IF ! 
H 17 7 ¢ MERGE 
5 18 7 THEN 
3; 219 724 'The trarsaction numbers refer to the same page of the 
; $9 4 ? paecunent Just record the new highest transaction number. 
; 32 727 XTNTAB C.XTNCNT] = . TRANSACTION; ‘Record transaction in table, permanently. 
3 de 728 XTNLSX C.XTNPOL CPOOL_ACT_PADSJ = . TRANSACTION; 'Remember it for next time around. 
: $e 729 RETURN; 
: 5 730 3 
; $$ 731 
: 7 § 'The new transaction number does not refer to the Last 
3 3 7 {page sO no merge was pgssidie. Allocate a new segment 
: , 4 : f the current segment is either full, or else doesn't 
3 ‘exist. 
3 1 7 § IF .XTNSGP EQL 0 ‘Any soguent at all y3*? 
3 § 4 5 OR (.XTNCNT GEQ MAX_XTN_COUNT) ‘Current segment full? 
; 7 
3 5 740 ‘Allocate a new segment 
; 741 iNote that the transaction numbers and page numbers 
3 74 ‘are saved in the same sognent . 
: 74 XTNSGP = XPOOL (XTNPOL, XTN_XTNTAB_SIZE + XTN_PAGTAB_SIZE); 
; +4 me 'Make sure that a segment could be allocated. 
3; 241 746 IF : 


roo 


H 3 
vO4~000 1eSep=1984 45:09:23 ERUNOFFSSRESNDXXTN:B 11 gee 


: gre EQL 0 OR (.XTNLSX EQL 0) 'Catch no XTNLSX space here. 

te Hine Copetee amount could not be allocated (pool full) 

rf L ZIF XBLISS (BLISS32) 

rtf XTHEN ! Signal errors for BLISS32 

rs SIGNAL_STOP (INDEXS$_INSVIRMEM) ; 

2) ¥ ZELSE ! Use $XPO_PUT_MSG otherwise 

36 U $XPO_PUT_MSG (SEVERITY = FATAL, 

a2 STRING = ‘can''t extend transaction pool.‘); 

56 XFI 

57 

58 RETURN; 

3 = 

61 XTNCNT = 0; 'No transaction numbers in this segment yet. 
$06 XTNTAB = .XTNSGP; : Transaction table is at start of segment. 

6 'Page numbers are saved after transaction numbers. 
44 peace = .XTNSGP + XTN_XTNTAB _SIZE*%UPVAL; 


‘At this point, there is definitely a spot free to save the 
‘transaction number and the associated page number. 
'That wet ts NNT one AFTER the previous slot. 
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areal = 1; 'New transaction number slot. 
AB COI": CNT; ‘Remember count in this List. 
INSP = XPAGEN PXTACNT, SCT_TYP); 'Remember where this page is. 
BIND ‘Mak these structures 
COPY = XPAGEN C.XTNCNT, 0,0,0,0] : VECTOR; ‘vectors so that 
‘copying is easier. 
PAGE : REF VECTOR; leas 
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NNSNNNNANNN SSNS SSIS SINS SSIS 

109 00 CD G9 09 09 09 09 SI NIN NII NNN AA AAA AAA A MMMM 

MEUN SO CDNA EWN CO ODNOAUEWNOCONAUE WN OUON 
PROPONPOPIPONINIWIWIWIWI WWIII AIRRONUPIPIPUININI WW EB BEE EERE EEEPUIS 


7 PAGE [.1 

FB 

788 i 0 oe .XTNCNT, Sct. 13, = sPAGE C SCT_TYP); aieave this page number. 

789 2 1)  \XPAGEN C.XTNCNT, ScT~SuB. eases jpace CSCT’ SUB_PAGE); Te 

79 it XPAGEN E.XTNCNT, SCT“NUMB SCT_NOMBER); pee 

79 ii XPAGEN E.XTNCNT, SCT~PAGE “pice” SCT _PRGEJ; = 

79 ii XPAGEN EC XTNCNT SCT“DISPLAY] = .PAGE CSCT DISPL ay}: 

79 XTNTAB TNCNT) = .TRANSACTIO LON; vhosee d a in table, permanently. 
389 79% XTNLSK E-XTNPOL CPOOL_ACT_PAD SJ) = .TRANSACTION; | ‘Remember it for next time around. 
90 0795 END; ‘End of ASGXTN 
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-EXTRN DSRINDEXS$~INSVIRMEM 


ma | Al ro | 
oun al © ce eo | 
~ oe oO “o oO 
- o oso oso 
| 
faa TT erT eee ee ee ee ot 2 2 2 2 2 2 2 j 
' © 
a 
| § 
. 
| o 
} - 
| « 
o 
i a 
} s 
j [- 2] | 
[+ 4 
a a 
Ne _ ~ | 
+e =< [oq 
~~ w * 
‘ws - ve) 
om ‘ a 
ee ra a 
w2 =< wo 
>e iu a 
4 a aa . 
Nx 2a “nun wT 
Na — Jj9 < 
‘2a _ Ld a a a 22w ba 
on © ouage-Zz -—-er- Me Ustad wo FeO ~~ 
ov 2 > we dues ZOoDOoZZe =< €oO wa &rFa UO xX < 
—-& w 2522490595 OwtVvVOn We ewxsjwsewa | a. . 
—Y 26 Oe eC OwSoV 2w>& 2woV8OM 4 2 ww eee we 88 N ~ 
@O- wwzs itt oe we ee 5 Bisa £; . un =< « 
oo 2auw #3°S22=4 Pe Pt od tpt pete 3 Se tet et . 
wu —O0A004< 10 OFF O22<2 0000S x wOOococacwkeao - © ° 
SO AaZOO SPVVVV GOW IZ ZZFZOONO He ee OO EZ ZO « > -o z oo 
‘2a seeeceeceeeceecepeeeere eee eee ee eee eee tt eo 32 8@ ee @Oromso a 
XD APAARAHAPA AA AAA ALAADBDA BAA AAAPDA A HAA ARAAP AAA MMO o WW Gaeoaacacaca- ”“” 
Zl HE OE OC OK OE OK OK OK OK OK OK OK OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE za [+ _ ~ 
Te ee eee ee rere relies rerreleertey ts a ah . ba es ees 8 Ww i 
8 8 8 se 8 8 8 ee ee ee ee ee eeeeesesre ef 2 2a. rth Ftp. ) 
2222222222 2222222222222 222222222220" 5 Ww —- WHIMOLOZM oO . 
SCeeeeeeeeeeeeeeeaeeeeeeeaeaeeaeeeeaeaeaeaedtsaZzOo OC Ue <a Z0O22222<2 zo 
KO MMMM VHMWVMHVWMVWHVWHVWHVHWHHWHVWHWHVWHHMHVHWWHVHWVYNNMNYMKWYYYAFe&-A VY YK Aree eee eA He 
Om COOOOOHOKOHOOOOOOHHOHOOOGOHOfHOOOAOHAOABOSoAoBoOoOK eM KK HM Ae mam MmaM aM CK — MVS 
or 
§—O 22222222222 222222222222222222222222222 —- > = 
oe S€Oaeeraecacacacacacncaacacaacacacacacaacacaacaaca wow « 999999992 @ 
Nee ee ee ee ee - a ~ad Jom 
Och Wd DC OK OK OK OK OK OK OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE EKKO OO OOS SS SS WI es 
UADURDUASUASOADEADLASLASAASEASAASEASLASEASAAJUASLASEAJEASLASLAJLASLAI LAL LUIL Cts C OOOOOO coo2ZwMzo 
wow eoeeeeeeseeeeeeeeeeeeeeeeeeeeeeeeeeee ee ee . * £zezz zz coce-Ooz 
coco 
ow 
-- 
i! 
aa 
mee ee 
mm A 
i) - 
rows 
— 


I A LL OOO ST INO 
GOAOOOOOSOOK- OOo oO 


OFFC 00000 


i he et ee UTC 
WWWwWwiEO Oreo 


VVoVuIEN9E9 


w 
oO 


3 
NOXXTN 1b-se -1984 01:16: AX-11 Biiss-32 V4.0-74 Pa 4 
V04-000 17x 0e-13R2 9h: hS:S) PANN AT Bi lege 3e vA Orr oe 3 
DD 00049 PUSHL ; : 
000000006 ai 3 FB 0004 CALLS #2, GPOOL : : 
E 65 8F 9A MOVZBL 61, =(SP) ; 0702 : 
69 03 F CALLS #2, XPOOL ; ; 
68 D B MOVL RO, XTNLSX : : 
1 AD 2s: MOVL TNLSP, R1 + 0713 ; 
.% é BNEO : ; 
0D CLRL MERGE + 0716 : 
‘ 11 0006 BRB 4 : : 
DD 00067 3$ PUSHL #1 + 0719 ; 
04 AC DD 069 PUSHL PAGE : ; 
51 DD C PUSHL RI : ; 
000000006 EF 03 FB O06 CALLS # PAGEQL : ; 
A 0 € 4$: BLBC MERGE, 5$ + 0722 F 
0 64 00 0078 MOVL XTNCNT, RO + 0727 ; 
00 8640 3 pO 00078 MOVL 3, @XTNTABCROI : F 
SF 11 9080 BRB + 0728 ; 
67 D3 0082 5$ TSTL § XTNSGP : 07 ; 
09 13 00084 BEQL : ; 
00000064 8F 64 01 00086 CMPL = XTNCNT, #100 + 0737 ; 
H 19 0008 BLSS ; ; 
7E O1F9 «BF 3C OO0BF 6$ MOVZWL #505, -(SP) > 0743 ; 
55 DD 00094 PUSHL R5 : ; 
69 02 FB 0096 CALLS #2, XPOOL : ; 
67 50 00 00 MOVL RO. XTNSGP : ; 
04 13 0009C BEQL : 0747 3 
68 05 O09 TSTL XTNLSX : : 
OE 12 OOOA BNEQ : 3 
000000006 8F DD 0042 7$ PUSHL #DSRINDEX$_INSVIRMEM + 0754 F 
G FB OOOA CALLS #1, LIBSSTOP : ; 
000000006 00 01 FB OOA8 CAL 1 $STO nae ; 
64 D4 000B0 8$ CLRL = XTNCNT : 0766 : 
66 67 D0 Cote? MOVL. XTNSGP, XTNTAB + 0767 : 
68 67 00000194 8F C1 000B5 ADDL3 #404, XTNSGP, XPAGEN : 0769 ; 
64 06 O0BD 9$: INCL XTNCNT : 0775 ; 
51 64 DO 000BF MOVL §_XTNCNT, R1 : 0776 ; 
00 86 1 p O0¢e MOVL 1, @XTNTAB : ; 
52 1 04 oc ASHL ,R : 0777 : 
52 6B C CA ADDL2 XPAGEN, R ; 3 
6A 3 DO 000C¢ MOVL R2, XTNLSP : ; 
D4 OD CLRL I + 0786 ; 
624 04 BC40 D D2 10$: MOVL @PAGECI), (R2)C1) : ; 
F6 5 : F Op AOBLEQ a3. I, 16$ : ; 
00 B64 D oC VL R3, aXTNTABCR1) : 0793 : 
6 D 3) 11$:  MOVL XTNPOL, RO > 0794 ; 
2 £4 ADDL2 ; 
60 D £7 MOVL (RO), RO ; 
00 8840 p EA MOVL 3, @XTNLSXCROJ ; 
4 OOOEF RET : 0795 


; Routine Size: 240 bytes, Routine Base: $CODE$ + 0000 


; 291 0796 1 
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1e-$ep-1984 13:09:25 ERUNOFeSRESNDKXTN:BL1 34 


GLOBAL ROUTINE XTNPAG (TRANSACTION) = : 


le 


FUNCTIONAL DESCRIPTION: 


Given a transaction number, return the address of 
the corresponding page number. 


i FORMAL PARAMETERS: 


TRANSACTION = The transaction number. 


i IMPLICIT INPUTS: 


NONE 


i IMPLICIT OUTPUTS: 


NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 


Address of the corresponding page number. 


i SIDE EFFECTS: 


NONE 


BEGIN 


- TRANSACTION EQL 0 
THEN 
RETURN 0; 


'Find the correct segment number. 
‘NOTE: Start at 2 because first is XTNLSX. 


INCR I FROM 2 TO .XTNPOL CPOOL_ACT_PADS] DO 
BEGIN 


IF 
» TRANSACTION LEQ .XTNLSX C.1] 
THEN 


'Search aegnens for exact transaction number. 
‘That results in an index into the corresponding 
seat of poves pages. 


LOCAL 
XTN_TABLE : REF XTNTAB_DEFINE, 
XPAGEN : REF XPAGEN_DEFINE; 


XTN_TABLE = GET_SEG_ADDR (XTNPOL, .1); 
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XIN 1 ~$007 1384 94: 19:0) AX-11 Bliss-32 V4.0-74 Page (38 


Ss 


v04=000 14-Sep-1 RUNOFF. SRCINDXXTN.BLI; 

0 4 4 XPAGEN = GET_SEG_ADDR (XTNPOL, .1) + XTN_XTNTAB_SIZE*%UPVAL; : 
; é g 4 INCR J FROM 1 TO .XTN_TABLE C0] DO ; 
; BEGIN ; 
34 ! 
; : 6¢ nen’ TRANSACTION LEQ .XTN, TABLE t.J] 3 
: 358 8 TURN XP Je ; 
: 338 O86¢ RETURN XPAGEN C.J, SCT_TYP] ; 
: 360 0864 4 END; : 
: 30) Spee END 
: 308 9 
; 364 868 END; 3 
s 365 869 3 
: 36 L 0870 2 XIF XBLISS (BLISS32) : 
: of th ZTHEN ! Signal errors for BLISS32 : 
; 309 a878 SIGNAL_STOP (INDEX$_NOREF, 0, INDEX$_BADLOGIC); 3 
; 21 U 0875 2 ELSE ! Use $XPO_PUT_MSG otherwise 3 
: 37 U O87? $XPO_PUT_MSG (SEVERITY = FATAL, : 
; ee Y fh STRING = ‘internal error - page reference not found.'); : 
: 376 $830 FI : 
: 377 0881 ; 
: 378 O88¢ RETURN ( ; 
3 79 088 3 
: 380 0884 EXTERNAL ; 
: 381 0885 PAGEN; ; 
> Se 0886 3 
; 38 0887 PAGEN) ; 

3 84 0888 1 ND; 'End of XTNPAG : 1 

a 

.EXTRN PAGEN ; 

007¢ 00000 .ENTRY XTNPAG, Save R2,R3,R4,R5,R6 : 0797 : 1 

56 04 Ag bg 00008 HOVL TRANSACTION, R6 ; 0831 : 

54 000000006 EF D os MOVL XTNPOL, R4 : 0838 : 1 

1 1 p F MOVL #1, I + 084 4 

A 12 BRB $ ; aa 

00000000GFF 41 6 D1 00014 1$: CMPL 6, @XTNLSKLI) ; | 

0 14 0001C BGTR ; : 4 

oc AS 9 1 MOVAB 12(R4), R3 : 0853 : 1 

3 p MOVL R3, PADTAB : : (1 

50 1 ASHL sot 0 : S| 

5 FC A240 D OVL. -4(PAGTAB)CROJ, XTN_TABLE ; Ww 

52 FC A340 00000194 BF C ADDL3 #404, -4(PADTAB)CROJ, XPAGEN : 0854 | 

3 b4 CLRL : 0856 = } 

1 A BRB $ F me | 

6543 p} ¢ 2$: CMPL RS. (XTN_TABLE) CJ) > 0860 
4 BGTR 3 : 


NDXXTN 
v04-000 


oz 
te 
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71986 93:09:38 — ERUNoFFeSRESNDNXTN:BL 1; sel 


2 


1 
1 

50 4 7 4 ASHL. #4, J, RO ; e 4 
35 33 cb if ADDL2 XPAGEN, RO ; ¢ | 
EE 3 65 3 4A 3$ AOBLEQ (XTN TABLE), J. 28 ; ey 
a 1 04 AG F 4E 4$ AOBLEG 4 (R 43, 1, 1$ : . ¥ 
000000006 of oF PUSHL #OSRINDERS_ BADLOGIC ; : : 
000000006 8F DD 8 PUSHL  #DSRINDEX$_NOREF : 4 
000000006 99 85 FB 1 CALLS #8 IBSeTOP : 7.4 
000000006 EF 9 8 MOVAB PAGEN, RO ; : 
50 D4 5$ CLRL = RO ; .- 3 
4 $093 RET : 3 
; Routine Size: 115 bytes, Routine Base: S$CODES + 00F0 : | 
:*% 
: ge $890 : END 'End of modul i 
: 387 0891 1 iptee ep pnee : 4 
: 388 0892 0 ELUDOM 
: 1 
& 
.EXTRN LIBSSTOP i] 
; PSECT SUMMARY ; 
3 Name Bytes Attributes 3 } 
; SCODES 355 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 4 
: : 1 
2 
: Library Statistics 3 ! 
: ape ne ee EOE Pg a Fe Symbols -------- Pages Processing ; 1 
3 File Total Loaded Percent Mapped Time : } 
;  ,$255$DUA28:CSYSLIBIXPORT.L32; 1 590 0 0 252 00:00.1 i] 
a: Y 
7 
s 1 
= 7 
a 
; COMMAND QUALIFIERS ; 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:NDXXTN/OBJ=OBJ$:NDXXTN MSRCS$:NDXXTN/UPDATE=(ENH$ :NDXXTN) ; 1 
3 Size: 355 ode 9 + 0 data bytes ; 1 
# ae B:1) 3°} + | 

. tlapsed [ime: ° Py 
3 Lines/CPU Min: 2880 | 


Mo 


; Lexemes/CPU-Min: 12043 
; Memory Used: 88 pages 


: Compi tation Complete 


nN 3 
16-Sep-1984 01:16:01 
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